﻿Namespace AppDomains
    Public Class ADIChannelWindow
        Implements ChatEngine.Client.IChannelWindow
        Private remClientVar As CoreFX.AppDomains.Communication.RemotingClient
        Private Server As String = AppDomain.CurrentDomain.FriendlyName
        Public Sub New(ByVal remClient As AppDomains.Communication.RemotingClient)
            remClientVar = remClient
        End Sub
        Public Sub ChangeNick(ByVal PrevNick As String, ByVal NewNick As String) Implements ChatEngine.Client.IChannelWindow.ChangeNick
            remClientVar.ChangeNick(PrevNick, NewNick, Server)
        End Sub
        Public Sub ChangeTopic(ByVal Topic As String, ByVal ChannelName As String) Implements ChatEngine.Client.IChannelWindow.ChangeTopic
            remClientVar.ChangeTopic(Topic, ChannelName, Server)
        End Sub
        Public Sub ChangeUserMode(ByVal E As ChatEngine.Connections.UserModeArgs) Implements ChatEngine.Client.IChannelWindow.ChangeUserMode
            remClientVar.ChangeUserMode(E, Server)
        End Sub
        Public Sub ChannelModeChanged(ByVal E As ChatEngine.Connections.ChannelModeArgs) Implements ChatEngine.Client.IChannelWindow.ChannelModeChanged
            remClientVar.ChannelModeChanged(E, Server)
        End Sub
        Public Sub Disconnect() Implements ChatEngine.Client.IChannelWindow.Disconnect
        End Sub
        Public Sub HandleNotice(ByVal E As ChatEngine.Connections.GenericEventArgs) Implements ChatEngine.Client.IChannelWindow.HandleNotice
            remClientVar.HandleNotice(E, Server)
        End Sub
        Public Sub Kicked(ByVal E As ChatEngine.Connections.KickedEventArgs) Implements ChatEngine.Client.IChannelWindow.Kicked
            remClientVar.Kicked(E, Server)
        End Sub
        Public Sub LoadNickList(ByVal Channel As String, ByVal E As ChatEngine.Connections.NickListRecvArgs) Implements ChatEngine.Client.IChannelWindow.LoadNickList
            remClientVar.LoadNickList(Channel, E, Server)
        End Sub
        Public Sub NewMessage(ByVal User As String, ByVal Message As String, ByVal ChannelName As String) Implements ChatEngine.Client.IChannelWindow.NewMessage
            remClientVar.NewMessage(User, Message, ChannelName, Server)
        End Sub
        Public Sub NewQuery(ByVal User As String, ByVal FirstMsg As String, ByVal IsFirstMessage As Boolean) Implements ChatEngine.Client.IChannelWindow.NewQuery

        End Sub
        Public Sub PartFromChannel(ByVal User As String, ByVal Channel As String) Implements ChatEngine.Client.IChannelWindow.PartFromChannel
            remClientVar.PartFromChannel(User, Channel, Server)
        End Sub
        Public Function RenderMessage(ByVal Message As String, ByVal ChannelName As String, ByVal User As String) As String Implements ChatEngine.Client.IChannelWindow.RenderMessage
            Return Nothing
        End Function
        Public Sub UserJoined(ByVal User As String, ByVal ChannelName As String) Implements ChatEngine.Client.IChannelWindow.UserJoined
            remClientVar.UserJoined(User, ChannelName, Server)
        End Sub
        Public Sub UserQuit(ByVal User As String, ByVal Reason As String) Implements ChatEngine.Client.IChannelWindow.UserQuit
            remClientVar.UserQuit(User, Reason, Server)
        End Sub
    End Class
End Namespace